home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmCM_103_Doc < prev    next >
Encoding:
Text File  |  1992-04-08  |  3.4 KB  |  149 lines
  1. // %filename% -- document class
  2. // Created %date% %time% by AppMaker 
  3.  
  4. #include "U%AppName%Doc.h"
  5. %for each window gen includeWindow%
  6. #ifndef __TYPES__
  7.     #include <Types.h>
  8. #endif
  9. #ifndef __QUICKDRAW__
  10.     #include <Quickdraw.h>
  11. #endif
  12. #ifndef __FONTS__
  13.     #include <Fonts.h>
  14. #endif
  15. #include "ResourceDefs.h"
  16.  
  17. const ResType kFileType        = 'TEXT';
  18. const ResType kSignature    = 'XXXX';    // Creator name
  19.  
  20. #pragma segment AOpen
  21. /*----------*/
  22. pascal void T%appname%Doc::I%appname%Doc (void)
  23. {
  24.     IDocument  (kFileType, 
  25.                 kSignature, 
  26.                 kUsesDataFork, 
  27.                !kUsesRsrcFork,
  28.                !kDataOpen,
  29.                !kRsrcOpen);
  30.     fSavePrintInfo = true;    // default is false
  31. } /* I%appname%Doc */
  32.  
  33. #pragma segment AClose
  34. /*----------*/
  35. pascal void T%appname%Doc::Free (void)
  36. {
  37.     FreeData ();
  38.     inherited::Free ();
  39. } /* Free */
  40.  
  41. #pragma segment AClose
  42. /*----------*/
  43. pascal void T%appname%Doc::FreeData (void)
  44. {
  45. } /* FreeData */
  46.  
  47. #pragma segment AOpen
  48. /*----------*/
  49. pascal void T%appname%Doc::DoMakeViews    (Boolean    /* forPrinting */)
  50. {
  51.     TWindow             *aWindow;
  52.     TStdPrintHandler     *aStdPrintHandler;
  53.  
  54.     %for each window gen makeWindow%
  55.     
  56.     aStdPrintHandler = new TStdPrintHandler;
  57.     FailNIL (aStdPrintHandler);
  58.     aStdPrintHandler->IStdPrintHandler  (this,
  59.                                          aWindow,        // main view of main window
  60.                                         !kSquareDots,
  61.                                          kFixedSize,    // horizontal page size
  62.                                         !kFixedSize);    // vertical page size
  63. } /* DoMakeViews */
  64.  
  65. #pragma segment AWriteFile
  66. /*----------*/
  67. pascal void T%appname%Doc::DoNeedDiskSpace%    %(long    *dataForkBytes, 
  68.                                              long    *rsrcForkBytes)
  69. {
  70.     inherited::DoNeedDiskSpace (dataForkBytes, rsrcForkBytes);    // to save print info
  71.     *dataForkBytes += 0; // size of your data;
  72. } /* DoNeedDiskSpace */
  73.  
  74. #pragma segment AReadFile
  75. /*----------*/
  76. pascal void T%appname%Doc::DoRead%    %(short        aRefNum, 
  77.                                      Boolean    rsrcExists, 
  78.                                      Boolean    forPrinting)
  79. {
  80.     long    dataSize;
  81.  
  82.     inherited::DoRead (aRefNum, rsrcExists, forPrinting);    // read printer info
  83.     FailOSErr (GetEOF (aRefNum, &dataSize));                // get size of data in file
  84. } /* DoRead */
  85.  
  86. #pragma segment AWriteFile
  87. /*----------*/
  88. pascal void T%appname%Doc::DoWrite%    %(short        aRefNum,
  89.                                      Boolean    makingCopy)
  90. {
  91.     long    dataSize;
  92.  
  93.     inherited::DoWrite (aRefNum, makingCopy);    //save print info to disk
  94.     dataSize = 0; // size of your data;
  95. } /* DoWrite */
  96.  
  97. #pragma segment ARes
  98. /*----------*/
  99. pascal void T%appname%Doc::DoSetupMenus (void)
  100. {
  101.     inherited::DoSetupMenus ();
  102. } /* DoSetupMenus */
  103.  
  104. %for each menu gen dynamicMenuProc%
  105. #pragma segment ASelCommand
  106. /*----------*/
  107. pascal TCommand* T%appname%Doc::DoMenuCommand%    %(CmdNumber        aCmdNumber)
  108. {
  109.     TCommand    *result;
  110.     short        menu;
  111.     short        item;
  112.     
  113.     result = gNoChanges;
  114.     
  115.     if (aCmdNumber < 0) {
  116.         CmdToMenuItem (aCmdNumber, &menu, &item);
  117.         %for each menu gen dynamicMenu%
  118.  
  119.     } else {
  120.         switch (aCmdNumber) {
  121.             case 0:
  122.                 break;
  123.             // put your menu commands here
  124.             default:
  125.                 result = inherited::DoMenuCommand (aCmdNumber);
  126.         } /* switch */
  127.     }
  128.  
  129.     return (result);
  130. } /* DoMenuCommand */
  131.  
  132. #if qInspector
  133. #pragma segment AFields
  134. /*----------*/
  135. pascal void T%appname%Doc::Fields    (
  136.                         pascal void (*DoToField)
  137.                                 (StringPtr        fieldName, 
  138.                                  Ptr            fieldAddr, 
  139.                                  short            fieldType, 
  140.                                  void             *DoToField_StaticLink),
  141.                         void    *DoToField_StaticLink)
  142. {
  143.     (*DoToField) ("\pT%appname%Doc", NULL, bClass, DoToField_StaticLink);
  144.     inherited::Fields (DoToField, DoToField_StaticLink);
  145. } /* Fields */
  146.  
  147. #endif
  148. /* %unitname% */
  149.